home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 101-125 / disk_104 / analyticalc / af03.cmd < prev    next >
OS/2 REXX Batch file  |  1992-05-06  |  845b  |  39 lines
  1. /#
  2. //
  3. RM
  4. TE I=C=D=E=0.0\*C
  5. %4H      %*%%                           
  6. *C CELL TO REGION OF WHICH IT'S UPPER LEFT CORNER
  7. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  8. TE *U HERE                                   
  9. TE T-1.\R=%
  10. TE U-2.\S=%
  11. %qGive Start Cell of Row>%L %\
  12. TE *U HERE
  13. TE T-1.\B=%
  14. TE U-2.\C=%
  15. %Give End Cell of Row>%L %\
  16. TE *U HERE
  17. TE T-1.\D=%
  18. TE U-2.\E=%
  19. %Give Bottom Left of Left Column>%L %\
  20. TE *U HERE
  21. TE T-1.\F=%
  22. TE U-2.\G=%
  23. L A1
  24. TE G-C+1.\H=%
  25. TE B+1.\I=%
  26. TE C+1.\J=%         
  27. CR P#%BC P#%BJ:P#%FG 
  28. CA A1 A0 
  29. EV P##
  30. DF A1 [*] 
  31. EV *U XQTCM CR P#%BC P#%IC:P#%DE \C=C+1.\E=E+1.\H=H-1.\< 
  32. R                                                       
  33. CA A0 A1                                                
  34. *C EXIT.
  35. L A1
  36. L P#%RS                                                   
  37. /#
  38.  
  39.